home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2003 June / macformat-130.iso / mac / Reviewed⁄Demos / Spearhead Demo / demota / pak1.pk3 / global / headaim.scr < prev    next >
Encoding:
Text File  |  2002-10-21  |  514 b   |  15 lines
  1.  
  2. main local.target local.range local.offset: // specify a target entity (must have a head), a range of variance, and an offset (ie can't aim any closer than this offset)
  3.     local.a = $(local.target) gettagposition "bip01 head"
  4.  
  5.     for (local.i=0;local.i<3;local.i++)
  6.     {
  7.         if (randomint(100) > 50)
  8.         local.a[local.i] = local.a[local.i] + randomint(local.range) + local.offset
  9.         else
  10.         local.a[local.i] = local.a[local.i] - randomint(local.range) - local.offset
  11.     }
  12.     self exec global/aimat.scr local.a
  13. end
  14.  
  15.